home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00877_PH-fi bt ret.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  331 b   |  19 lines
  1. on MouseClick
  2.   global gLocLabel
  3.   set gLocLabel to "PH:OU fi"
  4. end
  5.  
  6. on mouseDown
  7.   global gNumSpr, g1erSprLoc, gBoutons
  8.   set gNumSpr to g1erSprLoc + 1
  9.   gBoutons(appuie, gNumSpr)
  10. end
  11.  
  12. on mouseUp
  13.   global gNumSpr, g1erSprLoc, gBoutons
  14.   gBoutons(relache, gNumSpr)
  15.   if gNumSpr = (g1erSprLoc + 1) then
  16.     MouseClick()
  17.   end if
  18. end
  19.